home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
dskut
/
apl2pc.zip
/
APL2PC.BAS
next >
Wrap
BASIC Source File
|
1985-12-10
|
5KB
|
108 lines
10 CLS : KEY OFF : LOCATE 3,1
20 PRINT " VisiCalc" : PRINT : PRINT " A> APPLE --> IBM" : PRINT " B> IBM --> APPLE"
25 PRINT :PRINT
30 PRINT " WordStar" : PRINT : PRINT " C> APPLE --> IBM" : PRINT " D> IBM --> APPLE"
35 PRINT :PRINT
40 PRINT " Other" : PRINT : PRINT " E> APPLE --> IBM" : PRINT " F> IBM --> APPLE"
50 PRINT :PRINT : PRINT : PRINT " G> Exit to Basic"
60 GOSUB 1260
70 IF T$ = "A" THEN 200 ELSE IF T$ = "B" THEN 100 ELSE IF T$ = "C" THEN 500 ELSE IF T$ = "D" THEN 700 ELSE IF T$ = "E" THEN 400 ELSE IF T$ = "F" THEN 300 ELSE IF T$ = "G" THEN CLS : NEW : END ELSE 60
80 '
90 '
100 BNR$ = " VisiCalc: IBM --> APPLE" : EXT$ = "" : GOTO 310
200 BNR$ = " VisiCalc: APPLE --> IBM" : EXT$ = ".VC" : GOTO 410
210 '
220 '
230 '
300 BNR$ = " Other: IBM --> APPLE" : EXT$ = ".APL"
310 GOSUB 1000
320 WHILE NOT(EOF(1))
330 A$ = INPUT$(1,1)
340 IF A$ <> CHR$(10) THEN PRINT #2, A$;
350 WEND
360 CLOSE : GOTO 1180
370 '
380 '
390 '
400 BNR$ = " Other: APPLE --> IBM" : EXT$ = ".IBM"
410 GOSUB 1000
420 WHILE NOT(EOF(1))
430 A$ = INPUT$(1,1)
440 IF A$ <> CHR$(10) THEN PRINT #2, A$; : IF ASC(A$) = 13 THEN PRINT #2,CHR$(10);
450 WEND
460 PRINT #2,CHR$(13);CHR$(10);
465 IF EXT$ = ".VC" THEN FOR I = 1 TO 256 : PRINT #2,"" : NEXT
470 CLOSE : GOTO 1180
480 '
490 '
500 BNR$ = " Wordstar: APPLE --> IBM" : EXT$ = ".WSI"
510 GOSUB 1000 : AL$ = "" : AL = 0
520 WHILE NOT(EOF(1))
530 A$ = INPUT$(1,1) : IF A$ <> CHR$(0) THEN A = ASC(A$) ELSE A = 0
540 IF AL = 0 THEN 670
550 IF AL <> 13 THEN 600
560 IF RFLAG THEN AL$ = CHR$(13) + CHR$(10) : GOTO 660
570 IF A = 13 THEN RFLAG = NOT(0) : AL$ = CHR$(13) + CHR$(10) : GOTO 660
580 AL$ = CHR$(13 + 128) + CHR$(10) : GOTO 660
600 RFLAG = 0
610 IF A <> 13 THEN 650
620 IF AL$ = " " THEN 660 ELSE AL$ = CHR$(AL + 128) + " " : GOTO 660
650 IF A$ = " " THEN AL = AL + 128 : AL$ = CHR$(AL)
660 PRINT #2,AL$;
670 AL$ = A$ : AL = A
680 WEND
685 IF AL <> 13 THEN PRINT #2,AL$;
690 PRINT #2,"" : CLOSE : GOTO 1180
700 BNR$ = " Wordstar: IBM --> APPLE" : EXT$ = ".TXT"
710 GOSUB 1000
720 WHILE NOT(EOF(1))
730 A$ = INPUT$(1,1)
740 IF A$ <> CHR$(0) THEN PRINT #2, A$;
750 WEND
760 PRINT #2,"" : CLOSE : GOTO 1180
770 '
780 '
790 '
1000 GOSUB 1210 : LOCATE 9,1 : PRINT "(Press RETURN to return to main menu.)" : LOCATE 14,1 : INPUT "FILENAME"; FL$
1010 IF FL$ = "" THEN 10
1020 IF INSTR(FL$,".") THEN FLA$ = LEFT$(FL$,INSTR(FL$,".")-1) ELSE FLA$ = FL$
1030 FLA$ = LEFT$(FLA$,8+ INSTR(FLA$,":")) + EXT$
1040 ON ERROR GOTO 1310
1050 OPEN FL$ FOR INPUT AS #1
1055 IF FL$ <> FLA$ THEN 1060
1057 GOSUB 1210 : LOCATE 8,1 : PRINT "Source file and target file have" : PRINT : PRINT "the same name: "; FL$ : PRINT : PRINT : INPUT "New target filename"; FLA$
1060 ON ERROR GOTO 1300
1070 FLAG = 0 : OPEN FLA$ FOR INPUT AS #2
1080 ON ERROR GOTO 0 : CLOSE #2
1090 IF FLAG THEN 1130
1100 GOSUB 1210 : LOCATE 8,1 : PRINT "File ";FLA$; " already exists."
1110 PRINT : PRINT "New target filename?": PRINT : PRINT "(Press return to overwrite "; FLA$; ")" : PRINT
1120 INPUT T$ : IF T$ = "" THEN 1130 ELSE FLA$ = T$ : GOTO 1060
1130 GOSUB 1210 : LOCATE 7,5 : PRINT "SOURCE FILE . . . "FL$ : PRINT :PRINT :PRINT " TARGET FILE . . . "; FLA$ : LOCATE 15,10 : PRINT "* * WORKING * *"
1135 ON ERROR GOTO 1500
1140 OPEN FLA$ FOR OUTPUT AS #2
1145 ON ERROR GOTO 0 : RETURN
1150 '
1160 '
1170 '
1180 LOCATE 15,10 : PRINT " * * DONE * * "
1190 PRINT :PRINT :PRINT " (Press any key to continue)"
1200 GOSUB 1260 : GOTO 10
1210 CLS : PRINT BNR$ : PRINT STRING$(39,196) : RETURN
1220 '
1230 '
1240 '
1250 '
1260 T$ = INKEY$ : IF T$ <> "" THEN 1260
1270 T$ = INKEY$ : IF T$ = "" THEN 1270
1280 IF T$ >= "a" AND T$ <= "z" THEN T$ = CHR$(ASC(T$)-32)
1290 RETURN
1300 FLAG = 1 : RESUME 1080
1310 GOSUB 1210
1320 LOCATE 11,1 :PRINT "Unable to find file ";FL$ :PRINT :PRINT "Press any key to continue."
1330 GOSUB 1260 : RESUME 1000
1500 GOSUB 1210 : LOCATE 4,1 : PRINT " Unable to open target file:" : PRINT : PRINT " "; FLA$
1510 LOCATE 11,3 :PRINT "Possible reasons:" : PRINT :PRINT " Bad filename": PRINT :PRINT " No room on diskette" : PRINT :PRINT " No room in directory"
1520 LOCATE 22,3 : PRINT "(Press any key to continue.)"
1530 GOSUB 1260 : CLOSE : GOTO 10